home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwsepa.dir / 00259_Script_259 < prev    next >
Text File  |  1994-11-15  |  24KB  |  727 lines

  1. on startMovie
  2.   global lastMovie
  3.   global lastRoll,lastCast
  4.   
  5.   set lastMovie = "FLWSEPA"
  6.   
  7.   set lastRoll = 0
  8.   set lastCast = 0
  9.   setPuppet TRUE
  10.   gSetPuppet
  11.   set the stretch of sprite 23 to FALSE
  12. end startMovie
  13.  
  14. on stepMovie
  15.   global nowFrame,currFrame
  16.   if nowFrame <> currFrame then
  17.     seeAlsoList
  18.     set currFrame = nowFrame
  19.   end if
  20. end stepMovie
  21.  
  22. on stopMovie
  23.   put " " into field "SeeAlsoText"
  24.   set the castNum of sprite 21 to 1050
  25.   puppetSprite 21, FALSE
  26.   UpdateStage
  27. end stopMovie
  28.  
  29. on saveLocals
  30.   global lastFrame,nowFrame
  31.   set lastFrame = nowFrame 
  32. end saveLocals
  33.  
  34. on seForStep
  35.   global nowFrame
  36.   put the castNum of sprite 9 into cName
  37.   if nowFrame = "sepatnat007°°°" or nowFrame = "sepatnat006°°°" then 
  38.     gUnPuppet
  39.     go to frame "sematint000°°°" of movie "FLWSEMA"
  40.   else if chars(nowFrame,6,8) = "int" then
  41.     gUnPuppet
  42.     puppetTransition 2,0,128
  43.     go to marker(+1)
  44.   else if cName = A28 then
  45.     puppetTransition 2,0,128
  46.     go to marker(+2) 
  47.   else
  48.     puppetSprite 2, FALSE
  49.     puppetTransition 2,0,128
  50.     go to marker(+1)
  51.   end if
  52.   unLoadCast 176,258
  53. end seForStep
  54.  
  55.  
  56. on seBackStep
  57.   global nowFrame,jmpStep 
  58.   put the castNum of sprite 9 into cName
  59.   if chars(nowFrame,11,11) = "1" then
  60.     resetHit
  61.     updateStage
  62.   end if
  63.   if chars(nowFrame,6,8) = "int" then
  64.     go to "sesitmou005°°°" of movie "FLWSESI"
  65.   else
  66.     puppetTransition 1,0,128
  67.     go to marker(jmpStep)
  68.   end if
  69.   unLoadCast 176,258
  70. end seBackStep
  71.  
  72. on gSetPuppet
  73.   repeat with i = 21 to 23
  74.     puppetSprite i, TRUE
  75.     set the immediate of sprite i to TRUE
  76.   end repeat
  77. end gSetPuppet
  78.  
  79. on mainRtn
  80.   global swapSpnum,rollFlag, dialogOn
  81.   if dialogOn = FALSE then
  82.     set rollFlag = FALSE
  83.     if rollOver(9) then
  84.       puppetSprite 9,TRUE
  85.       set the foreColor of sprite 9 to 230
  86.     else
  87.       set the foreColor of sprite 9 to 255  
  88.       puppetSprite 9,FALSE
  89.     end if
  90.     
  91.     menuRollOver()
  92.     if rollFlag = TRUE then
  93.       when  mouseDown then  isPress(swapSpnum)
  94.     else
  95.       when mouseDown then nothing
  96.     end if
  97.     --if the mouseH >= 340 and the mouseV > 450 then
  98.     buttonState
  99.     --end if
  100.   end if
  101. end mainRtn
  102.  
  103. on buttonState
  104.   global thumbTrack, thumbFrame, bflag, FrankNav, adjPerOn, noTx, dialogOn
  105.   
  106.   
  107.   if dialogOn = FALSE then
  108.     
  109.     --periodRoll
  110.     --periodCheck
  111.     
  112.     -- don't check global buttons unless mouse is down at bottom
  113.     if (the mouseV > 200) or (bFlag = TRUE) then
  114.       set bFlag = FALSE
  115.       doState
  116.     end if
  117.   else if dialogOn = TRUE then
  118.     if the mouseDown then 
  119.       if the mouseCast <> the number of cast "glossDialog" then
  120.         beep
  121.       end if
  122.     end if
  123.   end if
  124.   --if bflag = FALSE then set the castNum of sprite 23 to noTx
  125. end buttonState
  126.  
  127. on isrollPhil 
  128.   global phiint,org, tec, dem, uni, bal, ref, lig, tru
  129.   global nowroll
  130.   if (the mouseH >= item 1 of phiint and the mouseH <= item 2 of phiint)¼
  131.       and (the mouseV >= item 3 of phiint and the mouseV <= item 4 of phiint) then
  132.     set nowroll = "phiint"
  133.   else if (the mouseH >= item 1 of org and the mouseH <= item 2 of org)¼
  134.       and (the mouseV >= item 3 of org and the mouseV <= item 4 of org) then
  135.     set nowroll = "org"
  136.   else if (the mouseH >= item 1 of tec and the mouseH <= item 2 of tec)¼
  137.        and (the mouseV >= item 3 of tec and the mouseV <= item 4 of tec) then
  138.     set nowroll = "tec"
  139.   else if (the mouseH >= item 1 of dem and the mouseH <= item 2 of dem)¼
  140.        and (the mouseV >= item 3 of dem and the mouseV <= item 4 of dem) then
  141.     set nowroll = "dem"
  142.   else if (the mouseH >= item 1 of uni and the mouseH <= item 2 of uni)¼
  143.      and (the mouseV >= item 3 of uni and the mouseV <= item 4 of uni) then
  144.     set nowroll = "uni"
  145.   else if (the mouseH >= item 1 of bal and the mouseH <= item 2 of bal)¼
  146.      and (the mouseV >= item 3 of bal and the mouseV <= item 4 of bal) then
  147.     set nowroll = "bal"
  148.   else if  (the mouseH >= item 1 of ref and the mouseH <= item 2 of ref)¼
  149.      and ( the mouseV >= item 3 of ref and the mouseV <= item 4 of ref) then
  150.     set nowroll = "ref"
  151.   else if (the mouseH >= item 1 of lig and the mouseH <= item 2 of lig)¼
  152.      and (the mouseV >= item 3 of lig and the mouseV <= item 4 of lig) then
  153.     set nowroll = "lig"
  154.   else if (the mouseH >= item 1 of tru and the mouseH <= item 2 of tru)¼
  155.     and (the mouseV >= item 3 of tru and  the mouseV <= item 4 of tru) then
  156.     set nowroll = "tru"
  157.   else
  158.     set nowroll = ""
  159.   end if
  160.   updateStage
  161.   return nowroll
  162. end isrollPhil
  163.  
  164. on isrollSite 
  165.   global sitint,fla,hil, mou
  166.   global nowroll
  167.   if (the mouseH >= item 1 of sitint and the mouseH <= item 2 of sitint)¼
  168.       and (the mouseV >= item 3 of sitint and the mouseV <= item 4 of sitint) then
  169.     set nowroll = "sitint"
  170.   else if (the mouseH >= item 1 of fla and the mouseH <= item 2 of fla)¼
  171.       and (the mouseV >= item 3 of fla and the mouseV <= item 4 of fla) then
  172.     set nowroll = "fla"
  173.   else if (the mouseH >= item 1 of hil and the mouseH <= item 2 of hil)¼
  174.        and (the mouseV >= item 3 of hil and the mouseV <= item 4 of hil) then
  175.     set nowroll = "hil"
  176.   else if (the mouseH >= item 1 of mou and the mouseH <= item 2 of mou)¼
  177.        and (the mouseV >= item 3 of mou and the mouseV <= item 4 of mou) then
  178.     set nowroll = "mou"
  179.   else
  180.     set nowroll = "" 
  181.   end if
  182.   return nowroll
  183. end isrollSite
  184.  
  185. on isrollPatt 
  186.   global patint,geo, col,sou,mus,cul,nat
  187.   global nowroll
  188.   if (the mouseH >= item 1 of patint and the mouseH <= item 2 of patint)¼
  189.       and (the mouseV >= item 3 of patint and the mouseV <= item 4 of patint) then
  190.     set nowroll = "patint"
  191.   else if (the mouseH >= item 1 of geo and the mouseH <= item 2 of geo)¼
  192.       and (the mouseV >= item 3 of geo and the mouseV <= item 4 of geo) then
  193.     set nowroll = "geo"
  194.   else if (the mouseH >= item 1 of col and the mouseH <= item 2 of col)¼
  195.        and (the mouseV >= item 3 of col and the mouseV <= item 4 of col) then
  196.     set nowroll = "col"
  197.   else if (the mouseH >= item 1 of sou and the mouseH <= item 2 of sou)¼
  198.        and (the mouseV >= item 3 of sou and the mouseV <= item 4 of sou) then
  199.     set nowroll = "sou"
  200.   else if (the mouseH >= item 1 of mus and the mouseH <= item 2 of mus)¼
  201.      and (the mouseV >= item 3 of mus and the mouseV <= item 4 of mus) then
  202.     set nowroll = "mus"
  203.   else if (the mouseH >= item 1 of cul and the mouseH <= item 2 of cul)¼
  204.      and (the mouseV >= item 3 of cul and the mouseV <= item 4 of cul) then
  205.     set nowroll = "cul"
  206.   else if (the mouseH >= item 1 of nat and the mouseH <= item 2 of nat)¼
  207.      and (the mouseV >= item 3 of nat and the mouseV <= item 4 of nat) then
  208.     set nowroll = "nat"
  209.   else
  210.     set nowroll = ""   
  211.   end if
  212.   return nowroll
  213. end isrollPatt
  214.  
  215. on isrollMate
  216.   global matint,woo,sto,gla, bri,cop,con,rei
  217.   global nowroll
  218.   if (the mouseH >= item 1 of matint and the mouseH <= item 2 of matint)¼
  219.       and (the mouseV >= item 3 of matint and the mouseV <= item 4 of matint) then
  220.     set nowroll = "matint"
  221.   else if (the mouseH >= item 1 of woo and the mouseH <= item 2 of woo)¼
  222.       and (the mouseV >= item 3 of woo and the mouseV <= item 4 of woo) then
  223.     set nowroll = "woo"
  224.   else if (the mouseH >= item 1 of sto and the mouseH <= item 2 of sto)¼
  225.        and (the mouseV >= item 3 of sto and the mouseV <= item 4 of sto) then
  226.     set nowroll = "sto"
  227.   else if (the mouseH >= item 1 of gla and the mouseH <= item 2 of gla)¼
  228.        and (the mouseV >= item 3 of gla and the mouseV <= item 4 of gla) then
  229.     set nowroll = "gla"
  230.   else if (the mouseH >= item 1 of bri and the mouseH <= item 2 of bri)¼
  231.      and (the mouseV >= item 3 of bri and the mouseV <= item 4 of bri) then
  232.     set nowroll = "bri"
  233.   else if (the mouseH >= item 1 of cop and the mouseH <= item 2 of cop)¼
  234.      and (the mouseV >= item 3 of cop and the mouseV <= item 4 of cop) then
  235.     set nowroll = "cop"
  236.   else if (the mouseH >= item 1 of cop and the mouseH <= item 2 of con)¼
  237.      and (the mouseV >= item 3 of cop and the mouseV <= item 4 of con) then
  238.     set nowroll = "con"
  239.   else if (the mouseH >= item 1 of rei and the mouseH <= item 2 of rei)¼
  240.      and (the mouseV >= item 3 of rei and the mouseV <= item 4 of rei) then
  241.     set nowroll = "rei"
  242.   else
  243.     set nowroll = ""   
  244.   end if
  245.   return nowroll
  246. end isrollMate
  247.  
  248. on isrollType 
  249.   global typint,atr, hea, tow
  250.   global nowroll
  251.   if (the mouseH >= item 1 of typint and the mouseH <= item 2 of typint)¼
  252.       and (the mouseV >= item 3 of typint and the mouseV <= item 4 of typint) then
  253.     set nowroll = "typint"
  254.   else if (the mouseH >= item 1 of atr and the mouseH <= item 2 of atr)¼
  255.       and (the mouseV >= item 3 of atr and the mouseV <= item 4 of atr) then
  256.     set nowroll = "atr"
  257.   else if (the mouseH >= item 1 of hea and the mouseH <= item 2 of hea)¼
  258.        and (the mouseV >= item 3 of hea and the mouseV <= item 4 of hea) then
  259.     set nowroll = "hea"
  260.   else if (the mouseH >= item 1 of tow and the mouseH <= item 2 of tow)¼
  261.        and (the mouseV >= item 3 of tow and the mouseV <= item 4 of tow) then
  262.     set nowroll = "tow"
  263.   else
  264.     set nowroll = ""   
  265.   end if
  266.   return nowroll
  267. end isrollType
  268.  
  269. on locCheck spriteNum
  270.   global nowroll
  271.   if the mouseH >= 22 and the mouseH <= (22 + 97) then
  272.     set nowroll = isrollPhil()
  273.     isrollPhil()
  274.     philroll(nowroll,3)
  275.   else if the mouseH >= 142 and the mouseH <= (142 + 87) then
  276.     set nowroll = isrollSite()
  277.     siteroll(nowroll,3)
  278.   else if the mouseH >= 268 and the mouseH <= (268 + 94) then
  279.     set nowroll = isrollPatt()
  280.     pattroll(nowroll,3)
  281.   else if the mouseH >= 392 and the mouseH <= (392 + 92) then
  282.     set nowroll = isrollMate()
  283.     materoll(nowroll,3)
  284.   else if the mouseH >= 521 and the mouseH <= (521 + 70) then
  285.     set nowroll = isrollType()
  286.     typeroll(nowroll,3)
  287.   end if
  288. end locCheck
  289.  
  290. on philroll nowroll,spriteNum
  291.   global flashtimer,phiint
  292.   set flashtimer = FALSE
  293.   set cName = A88
  294.   set resetCname = A51
  295.   if nowroll = "phiint" then
  296.     set the castNum of sprite spriteNum to cName
  297.   else if nowroll = "org" then
  298.     set the castNum of sprite spriteNum to cName + 1
  299.   else if nowroll = "tec" then
  300.     set the castNum of sprite spriteNum to cName + 2
  301.   else if nowroll = "dem" then
  302.     set the castNum of sprite spriteNum to cName + 3
  303.   else if nowroll = "uni" then
  304.     set the castNum of sprite spriteNum to cName + 4
  305.   else if nowroll = "bal" then
  306.     set the castNum of sprite spriteNum to cName + 5
  307.   else if nowroll = "ref" then
  308.     set the castNum of sprite spriteNum to cName + 6
  309.   else if nowroll = "lig" then
  310.     set the castNum of sprite spriteNum to cName + 7
  311.   else if nowroll = "tru" then
  312.     set the castNum of sprite spriteNum to cName + 8
  313.   else
  314.     set the castNum of sprite spriteNum to resetCname
  315.     set flashtimer = TRUE 
  316.   end if
  317.   updateStage
  318.   
  319. end philroll
  320.  
  321. on siteroll nowroll,spriteNum
  322.   global flashtimer,sitint
  323.   set flashtimer = FALSE
  324.   set cName = B21
  325.   set resetCname = A51
  326.   if nowroll = "sitint" then
  327.     set the castNum of sprite spriteNum to cName
  328.   else if nowroll = "fla" then
  329.     set the castNum of sprite spriteNum to cName + 1
  330.   else if nowroll = "hil" then
  331.     set the castNum of sprite spriteNum to cName + 2
  332.   else if nowroll = "mou" then
  333.     set the castNum of sprite spriteNum to cName + 3
  334.   else
  335.     set the castNum of sprite spriteNum to resetCname
  336.     set flashtimer = TRUE
  337.   end if
  338.   updateStage
  339. end siteroll
  340.  
  341. on pattroll nowroll,spriteNum
  342.   global flashtimer,patint
  343.   set flashtimer = FALSE
  344.   set cName = B25
  345.   set resetCname = A51
  346.   if nowroll = "patint" then
  347.     set the castNum of sprite spriteNum to cName
  348.   else if nowroll = "geo" then
  349.     set the castNum of sprite spriteNum to cName + 1
  350.   else if nowroll = "col" then
  351.     set the castNum of sprite spriteNum to cName + 2
  352.   else if nowroll = "sou" then
  353.     set the castNum of sprite spriteNum to cName + 7
  354.   else if nowroll = "mus" then
  355.     set the castNum of sprite spriteNum to cName + 4
  356.   else if nowroll = "cul" then
  357.     set the castNum of sprite spriteNum to cName + 5
  358.   else if nowroll = "nat" then
  359.     set the castNum of sprite spriteNum to cName + 6
  360.   else
  361.     set the castNum of sprite spriteNum to resetCname
  362.     set flashtimer = TRUE
  363.   end if
  364. end pattroll
  365.  
  366. on materoll nowroll,spriteNum
  367.   global flashtimer,matint
  368.   set flashtimer = FALSE
  369.   set cName = B35
  370.   set resetCname = A51
  371.   if nowroll = "matint" then
  372.     set the castNum of sprite spriteNum to cName
  373.   else if nowroll = "woo" then
  374.     set the castNum of sprite spriteNum to cName + 1
  375.   else if nowroll = "sto" then
  376.     set the castNum of sprite spriteNum to cName + 2
  377.   else if nowroll = "gla" then
  378.     set the castNum of sprite spriteNum to cName + 3
  379.   else if nowroll = "bri" then
  380.     set the castNum of sprite spriteNum to cName + 4
  381.   else if nowroll = "cop" then
  382.     set the castNum of sprite spriteNum to cName + 5
  383.   else if nowroll = "con" then
  384.     set the castNum of sprite spriteNum to cName + 6
  385.   else if nowroll = "rei" then
  386.     set the castNum of sprite spriteNum to cName + 7
  387.   else
  388.     set the castNum of sprite spriteNum to resetCname
  389.     set flashtimer = TRUE
  390.   end if
  391.   updateStage
  392. end materoll
  393.  
  394. on typeroll nowroll,spriteNum
  395.   global flashtimer,typint
  396.   set flashtimer = FALSE
  397.   set cName = B45
  398.   set resetCname = A51
  399.   if nowroll = "typint" then
  400.     set the castNum of sprite spriteNum to cName
  401.   else if nowroll = "atr" then
  402.     set the castNum of sprite spriteNum to cName + 1
  403.   else if nowroll = "hea" then
  404.     set the castNum of sprite spriteNum to cName + 2
  405.   else if nowroll = "tow" then
  406.     set the castNum of sprite spriteNum to cName + 3
  407.   else
  408.     set the castNum of sprite spriteNum to resetCname
  409.     set flashtimer = TRUE
  410.   end if
  411.   updateStage
  412. end typeroll
  413.  
  414. on isPress spriteNum 
  415.   global nowFrame,rollFlag, nextMov, lastMovie
  416.   set restate  = A51
  417.   set buttonSucess = FALSE
  418.   set resetCastNo = A31
  419.   set nowPress = isrollPhil()
  420.   if nowPress = "phiint"  then
  421.     set buttonSucess = TRUE
  422.     put nowPress into clickasset
  423.     set nextMov = "FLWSEPH"
  424.   end if
  425.   if nowPress <> ""  and nowPress <> "phiint" then 
  426.     set the castNum of sprite spriteNum to the number of cast(nowPress & "dwn")
  427.     set resetSprite = 10
  428.     set resetCast = resetCastNo
  429.     put "phi" & nowPress  into clickasset
  430.     set nextMov = "FLWSEPH"
  431.     set buttonSucess = TRUE
  432.     
  433.     repeat while the stillDown
  434.       if isrollPhil() = nowPress then
  435.         put "phi" into secName
  436.         set the castNum of sprite spriteNum to the number of cast (nowPress & "dwn")
  437.         set resetSprite = 10
  438.         set resetCast = resetCastNo
  439.         put "phi" & nowPress  into clickasset
  440.         set buttonSucess = TRUE
  441.       else if isrollPhil() <> nowPress   then
  442.         set the ink of sprite spriteNum to 8
  443.         set the castNum of sprite spriteNum to  restate
  444.         set buttonSucess = FALSE
  445.       end if
  446.       updateStage
  447.     end repeat
  448.   end if
  449.   
  450.   set nowPress = isrollSite()
  451.   if nowPress = "sitint" then
  452.     set buttonSucess = TRUE
  453.     put nowPress into clickasset
  454.     set nextMov = "FLWSESI"
  455.   end if
  456.   if nowPress  <> "" and nowPress <> "sitint" then
  457.     set the castNum of sprite spriteNum to the number of cast(nowPress & "dwn")
  458.     set resetSprite = 11
  459.     set resetCast = resetCastNo + 1
  460.     put "sit" & nowPress  into clickasset
  461.     set nextMov = "FLWSESI"
  462.     set buttonSucess = TRUE
  463.     updateStage
  464.     repeat while the stillDown
  465.       if isrollSite() = nowPress then
  466.         set the castNum of sprite spriteNum to the number of cast (nowPress & "dwn")
  467.         set resetSprite = 11
  468.         set resetCast = resetCastNo + 1
  469.         put "sit" & nowPress  into clickasset
  470.         set buttonSucess = TRUE
  471.       else if isrollSite() <> nowPress  then
  472.         set the ink of sprite spriteNum to 8
  473.         set the castNum of sprite spriteNum to  restate
  474.         set buttonSucess = FALSE
  475.       end if
  476.       updateStage
  477.     end repeat
  478.   end if
  479.   
  480.   set nowPress = isrollPatt()
  481.   if nowPress = "patint"  then
  482.     set buttonSucess = TRUE
  483.     put nowPress into clickasset
  484.     set nextMov = "FLWSEPA"
  485.   end if
  486.   if nowPress  <> "" and nowPress <> "patint" then
  487.     set the castNum of sprite spriteNum to the number of cast(nowPress & "dwn")
  488.     set resetSprite = 12
  489.     set resetCast = resetCastNo + 2
  490.     put "pat" & nowPress  into clickasset
  491.     set nextMov = "FLWSEPA"
  492.     --    if nowPress = "sou" then
  493.     --      set buttonSucess to FALSE
  494.     --    else
  495.     set buttonSucess = TRUE
  496.     --    end if
  497.     updateStage
  498.     repeat while the stillDown
  499.       if isrollPatt() = nowPress then
  500.         set the castNum of sprite spriteNum to the number of cast (nowPress & "dwn")
  501.         set resetSprite = 12
  502.         set resetCast = resetCastNo + 2
  503.         put "pat" & nowPress  into clickasset
  504.         set buttonSucess = TRUE
  505.         --        if nowPress = "sou" then
  506.         --          set buttonSucess to FALSE
  507.         --        end if
  508.       else if isrollPatt() <> nowPress then
  509.         set the ink of sprite spriteNum to 8
  510.         set the castNum of sprite spriteNum to  restate
  511.         set buttonSucess = FALSE
  512.       end if
  513.       updateStage
  514.     end repeat
  515.   end if
  516.   
  517.   set nowPress = isrollMate()
  518.   if nowPress = "matint"  then
  519.     set buttonSucess = TRUE
  520.     put nowPress into clickasset
  521.     set nextMov = "FLWSEMA"
  522.   end if
  523.   if nowPress <> "" and nowPress <> "matint" then
  524.     set the castNum of sprite spriteNum to the number of cast(nowPress & "dwn")
  525.     set resetSprite = 13
  526.     set resetCast = resetCastNo + 3
  527.     put "mat" & nowPress  into clickasset
  528.     set nextMov = "FLWSEMA"
  529.     set buttonSucess = TRUE
  530.     updateStage
  531.     repeat while the stillDown
  532.       if isrollMate() = nowPress then
  533.         set the castNum of sprite spriteNum to the number of cast (nowPress & "dwn")
  534.         set resetSprite = 13
  535.         set resetCast = resetCastNo + 3
  536.         put "mat" & nowPress  into clickasset
  537.         set buttonSucess = TRUE
  538.       else if isrollMate() <> nowPress  then
  539.         set the ink of sprite spriteNum to 8
  540.         set the castNum of sprite spriteNum to  restate
  541.         set buttonSucess = FALSE
  542.       end if
  543.       updateStage
  544.     end repeat
  545.   end if
  546.   
  547.   set nowPress = isrollType()
  548.   if nowPress = "typint" then
  549.     set buttonSucess = TRUE
  550.     put nowPress into clickasset
  551.     set nextMov = "FLWSETY"
  552.   end if
  553.   if nowPress  <> "" and nowPress <> "typint" then
  554.     set the castNum of sprite spriteNum to the number of cast(nowPress & "dwn")
  555.     set resetSprite = 14
  556.     set resetCast = resetCastNo + 4
  557.     put "typ" & nowPress  into clickasset
  558.     set nextMov = "FLWSETY"
  559.     set buttonSucess = TRUE
  560.     updateStage
  561.     repeat while the stillDown
  562.       if isrollType() = nowPress then
  563.         set the castNum of sprite spriteNum to the number of cast (nowPress & "dwn")
  564.         set resetSprite = 14
  565.         set resetCast = resetCastNo + 4
  566.         put "typ" & nowPress  into clickasset
  567.         set buttonSucess = TRUE
  568.       else if isrollType() <> nowPress  then
  569.         set the ink of sprite spriteNum to 8
  570.         set the castNum of sprite spriteNum to  restate
  571.         set buttonSucess = FALSE
  572.       end if
  573.       updateStage
  574.     end repeat
  575.   end if
  576.   
  577.   if buttonSucess = TRUE then
  578.     set the ink of sprite spriteNum to 8
  579.     if spriteNum = 3 then
  580.       set the castNum of sprite spriteNum to restate
  581.       updateStage
  582.       puppetSprite spriteNum, FALSE
  583.     else
  584.       put the timer + 10 into time
  585.       set the castNum of sprite spriteNum to restate
  586.       updateStage
  587.       repeat while the timer < time
  588.       end repeat
  589.       puppetSprite spriteNum,FALSE
  590.     end if
  591.     
  592.     if clickasset = "patsou" then
  593.       set clickasset = "patmus"
  594.     end if
  595.     
  596.     put "se" & clickasset & "000°°°" into jmpFrame
  597.     if chars(nowFrame,3,5) <> "mai" then resetHit
  598.     set rollFlag = FALSE
  599.     set the ink of sprite spriteNum to 8
  600.     puppetSprite 2, FALSE
  601.     puppetSprite 4, FALSE
  602.     puppetSprite 5, FALSE
  603.     
  604.     if chars(clickasset,1,2)=chars(lastMovie,6,7) then
  605.       go to frame jmpFrame
  606.       flush
  607.     else
  608.       go to frame jmpFrame of movie nextMov
  609.       flush
  610.     end if
  611.   end if
  612. end isPress
  613.  
  614. on setPuppet state
  615.   repeat with i = 10 to 15
  616.     puppetSprite i, state
  617.     set the immediate of sprite i to state
  618.   end repeat
  619. end setPuppet
  620.  
  621. on menuRollOver 
  622.   global lastRoll,lastCast,nowFrame,rollFlag
  623.   set resetState = A51
  624.   set cName = A41
  625.   set lCname = A22
  626.   set currHit = A31
  627.   put chars(nowFrame,3,5) into currSec
  628.   
  629.   set rollFlag = FALSE
  630.   
  631.   if currSec = "phi" then
  632.     set the castNum of sprite 10 to currHit
  633.   else if currSec = "sit" then
  634.     set the castNum of sprite 11 to currHit + 1
  635.   else if currSec = "pat" then
  636.     set the castNum of sprite 12 to currHit + 2
  637.   else if currSec = "mat" then
  638.     set the castNum of sprite 13 to currHit + 3
  639.   else if currSec = "typ" then
  640.     set the castNum of sprite 14 to currHit + 4
  641.   end if
  642.   
  643.   if rollOver(10) then
  644.     set rollFlag = TRUE
  645.     if lastRoll <> 0 and lastRoll <> 10  then
  646.       set the castNum of sprite lastRoll to lastCast
  647.     end if
  648.     set the castNum of  sprite 10 to cName
  649.     set lastRoll = 10
  650.     set lastCast = lCname
  651.     set nowroll = isrollPhil()
  652.     philroll(nowroll,15)
  653.   else if rollOver(11) then
  654.     set rollFlag = TRUE
  655.     if lastRoll <> 0 and lastRoll <> 11  then
  656.       set the castNum of sprite lastRoll to lastCast
  657.     end if
  658.     set the castNum of  sprite 11 to cName + 1
  659.     set lastRoll = 11
  660.     set lastCast = lCname + 1
  661.     set nowroll = isrollSite()
  662.     siteroll(nowroll,15)
  663.   else if rollOver(12) then
  664.     set rollFlag = TRUE
  665.     if lastRoll <> 0 and lastRoll <> 12 then
  666.       set the castNum of sprite lastRoll to  lastCast
  667.     end if
  668.     set the castNum of  sprite 12 to cName + 2
  669.     set lastRoll = 12
  670.     set lastCast = lCname + 2
  671.     set nowroll = isrollPatt()
  672.     pattroll(nowroll,15)
  673.   else if rollOver(13) then
  674.     set rollFlag = TRUE
  675.     if lastRoll <> 0 and lastRoll <> 13 then
  676.       set the castNum of sprite lastRoll to  lastCast
  677.     end if
  678.     set the castNum of  sprite 13 to cName + 3
  679.     set lastRoll = 13 
  680.     set lastCast = lCname + 3
  681.     set nowroll = isrollMate()
  682.     materoll(nowroll,15)
  683.   else if rollOver(14) then
  684.     set rollFlag = TRUE
  685.     if lastRoll <> 0 and lastRoll <> 14 then
  686.       set the castNum of sprite lastRoll to  lastCast
  687.     end if
  688.     set the castNum of sprite 14 to cName + 4 
  689.     set lastRoll = 14
  690.     set lastCast = lCname + 4
  691.     set nowroll = isrollType()
  692.     Typeroll(nowroll,15)
  693.   else 
  694.     set rollFlag = FALSE 
  695.     set the castNum of sprite lastRoll to lastCast
  696.     set the castNum of sprite 15 to  resetState
  697.     if currSec = "phi" then
  698.       set the castNum of sprite 10 to currHit
  699.     else if currSec = "sit" then
  700.       set the castNum of sprite 11 to currHit + 1
  701.     else if currSec = "pat" then
  702.       set the castNum of sprite 12 to currHit + 2
  703.     else if currSec = "mat" then
  704.       set the castNum of sprite 13 to currHit + 3
  705.     else if currSec = "typ" then
  706.       set the castNum of sprite 14 to currHit + 4
  707.     end if 
  708.   end if
  709.   updateStage
  710.   return rollFlag
  711. end menuRollOver
  712.  
  713. on resetHit
  714.   set hitSp = A22
  715.   repeat with i = 0 to 4 
  716.     set the castNum of sprite (i+10) to (hitSp + i)
  717.     updateStage
  718.   end repeat
  719. end resetHit
  720.  
  721. on gUnPuppet
  722.   setPuppet FALSE  
  723. end gUnpuppet
  724.  
  725.  
  726.  
  727.